home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 37
/
Amiga Format CD37 (1999-02-16)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-03].iso
/
+system+
/
tools
/
expert
/
dtypeguide
/
mydevice.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1998-12-15
|
345b
|
14 lines
/* Datatype Check on a selected volume
V2.0- 10/03/98 - © Age*/
if ~show('L',"rexxreqtools.library") then addlib('rexxreqtools.library',0,-30,0)
Volume = rtfilerequest(,,"Pick a Volume",,"rtfi_volumerequest=vreqf_noassigns")
IF Volume = "" then do
address command '"SetEnv" dev='0
exit
END
address command '"SetEnv" dev='Volume
Exit